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BLOK 


DECUS Program Library Write-up 


DECUS NO. 8-384 


This is a two-page programme for examining the disk when using 
the Disk Monitor system. Individual blocks are printed on the teletype 
with their Link words. Directory Name Piles appear with one line for 
each file, the name being decoded. Other blocks are printed in octal, 
eight words to a line with headings from which the word-number may be 
read off. 

The programme occupies locations 6000-6377* (6127 through 

6153 are unused). Initial entry point is 6000, where the programme 
loops waiting for the keyboard flag. Type "D" for directory format 
or "space" for standard octal format. The programme now halts to allow 
the block number to be set on the switch register. Press Continue to 
initiate the print-out. 

Output may be interrupted during spacing by pressing any key 
on the teletype. D will give the next block in Directory Pile format, 

1* C returns to Monitor, 0 transfers to Loc 4000 at which it is convenient 
to have a version of ODT (0DT4). Any other character gives the normal 
octal print-out suitable for the SAM Blocks. 

Block numbers may be inserted from the teletype, using 0DT4, 
after altering WAIT (6123) from 7602 to JMP I ODT (5673). The procedure 
with ODT is to open 6105/.•• and enter the Block No; following this by 
61000 to return to BLOK. SAM Block format will be used unless Directory 
format has been specifically asked for by pressing D. 





When ODT is being used, the programme returns to ODT at the end 
of each block, or after any interruption of the print-out. The return 
address in BLOK, for the format already specified, is 6100. To re¬ 
specify the format, type 60000, type "D" or "space" as appropriate, and 
then type 6100G. When ODT is not being used, the programme responds to 

the keyboard only while typing is in progress. 

The buffer area is 1000-1177 and. these are the addresses used 
in the print-out. To derive the word number in the original block, 
just disregard the first digit - thus, for example, the word found 
at location 1055 in the buffer is word 55 in the block being examined, 
and so on. 

In deriving the word number for entries in the DN file, allow 
two words for the file name. The three octal numbers following the 
file name are: the core loading point, the programme entry point, and 
the file code respectively. In the file code, the first two digits 
are a classification incorporating extended memory bits (see Monitor 
manual) the last two are the file number. Loading points and entry 
points are zero for files other than Saved files. ’Where the Load 
point is given as 7777 this means that non-contiguous pages are used 
in core. The start addresses of each of the pages used then appear in 
sequence in the first block of the saved file. 

The first three words in the first DN Block ares the block 
number for the first of the Monitor Scratch blocks (0575), the code 
for the version of Monitor that is in use (not decoded in this 
programme), and the block number for the first SAM block. 

The words in the SAM block indicate which files occupy the 
corresponding blocks in a set of 400. Thus word 1155 in the buffer, 
when examining block 200, might contain the number 5515 (say). This 
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would mean that block 135 contains a page of file no. 15 and that 
block 355 contains a page of file no. 33* If the same entry were found 
when reading the second SAM block (Block 40l) this would signify a 
page of 15 in block 535 and a page of 33 in block 735* Zeros indicate 
unallocated blocks. 

To find which block contains the nth page of a particular file, 
find the file number from the Directory, locate the earliest entry for 
this file number in the SAM block, and then count along, taking account 
of the 7777 convention (above) for files which are to be loaded into 
non-contiguous pages in core. 

Once the content of the relevant locations on the disk is known, 
it is a simple matter to make changes. These may be made directly on 
the disk using DISKLOOK (Decus 8-111) or SYSLUK (Decus 8 -I 41 ), or 
alternatively the required changes may be made to the buffer in core, 
using ODT, and the buffer can then be written back onto the disk using 
the following short routine built for the purpose, again using ODT. 


4607 

(LF)/ 

JMS 1 SYS IO 

5 

(IF)/ 

= write, 3 = read 

Block No. 
1000 

(LF) 

(LF)/ 

core address of buffer 

LINK word 

(LF) 


7402 

(LF)/ 

error return 

5610 

(LF)/ 

return to ODT4 

7642 

(LF)/ 

Monitor SYSIO 

4000 

(CR)/ 

ODT4 address 


To preserve paper-tape versions of individual blocks, e.g. of 
particular states of the DN files or SAM blocks, it is convenient to 
add the above routine to be punched out by ODT along with the buffer. 
Restoration is then effected by reading back the paper-tape and starting 
at 1200. For short-term use, the DN and SAM blocks may be brought 



down into core, one by one, and saved in new files on the disk using 
Monitor. When the saved versions aro written back into place, all 
files not recorded in the current DN file cease to be accessible through 
Monitor and count as deleted. If the disk images are still intact, 

however, these 'lost* files can be recovered by patching the appropriate 
entries in the DN and SAM blocks. 

It is possible to alter a file name, to change the classification 
from SYS to USER or vice versa, or to alter either the load point or 
the entry point. A change of entry point is particularly useful when 
there is a need to patch programmes such as PIP or PALD which normally 
start with an initialization routine that alters the core image as 
soon as the programme is called down. If the entry point is patched to 
one of the HLT locations in Monitor head (e.g. 7606), the computer will 
halt before the initialization routine. The programme may then be 
patched in core with the switch register and re-saved. 

If the load point is to be altered, care is needed in dealing 
with multi-page programmes. All the off-page references will need 
to be patched before the programme will run in the new area. To find 
the relevant locations, set the ODT mask to 0600 and search the 
appropriate area with 0600W. The last 7 bits of the indirect instructions 
found in this way indicate the locations of the off-page references. 
Pointers in page zero are traced using 0400W. and the same mask. 

The contents of saved files are recognisable core images. Binary 
and ASCII files, on the other hand, contain 8-bit paper-tape characters 
packed three characters to two 12-bit words. The octal print-out is 
thus not readily recognisable without some decoding. 

A single page from an ASCII file may be decoded by the following 
procedure: create a new entry for an ASCII file in the Directory by 
giving a file name (e.g. S: QRY) in answer to the OUT- request under 
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the A option of PIP. Determine the corresponding file number with 
BLOK. Patch the appropriate word in the SAM block with this new file 
number. Patch zero into the link word for the block to be decoded. 
Call PIP again and’copy Ss QRY onto the teletype under the A option. 
Remember to restore all the patched locations afterwards. 

Binary files need special treatment because of the occurrence 
of "origins" or load points. The first page, or a run of pages 
including the first, can be decoded by copying onto paper tape under 
the B option of PIP and running the tape through a reverse assembler 
(such as Decus 5/8-18a). 

A further use of BLOK is to facilitate re-arrangement of the 
files on the disk. An area can be cleared by judicious copying and 
deleting, using PIP, and a known set of blocks can be reserved for 
direct interaction with one of the user's own programmes. This is 
done by inserting dummy file-numbers in the appropriate places in the 
SAM block. The maximum number of file names permitted depends on the 
system configuration and is governed by the length of the available 
DN blocks. If a larger dummy file-number is used in the SAM block, 
there is no chance of the corresponding blocks being taken over by 
Monitor because the Monitor SAVE operation searches for zeros in the 
SAM block entries before allocating blocks to a new file. 

To use ODTL at 1000, with the buffer at 4000, make the 


following patches 

to BLOKs 



6106, 

1000 —> 

4000 

(start of buffer area) 

6075, 

4000 —» 

1000 

(Location to be jumped to 

6370, 

4000 —> 

1000 

after 0 is struck on keyboard.) 








BLOK 


• PA 5 

• PALO 
♦OUT-S:BP 

• 

♦ I M-S: 82 

♦ 

♦OPT-T 

/ 

/ 

/ 

/ p RIMT DM FILE AMD SAM BLOCKS 
/ WITH LIMK WORD 
/ 

/TYPF D FOR DIRECTORY FORMAT 

/ (TYPE 61000, IF BLOCK MO IS ALREADY IM) 

/ COMTRL/C FOR MOMI TOR 

/ 0 FOR ODT AT 4000 

/ AMY OTHER CHARACTER FOR SAM FORMAT 

/ 

/WITH 0 DTi PLAMT BLOCK MO AT 6! 05* 

/ RET'JRM WITH 6100C 

/ 

/WITHOUT 0DT< COLLECT BLOCK MO FROM SR 




/ 

/ 

AFTER PLAMTIM G 

7602 AT "WAIT” (6123) 




♦ 6000 


6000 

60 32 

START* 

KCC 



600 } 

6031 


KSF 



6002 

520 1 


JMP 

. -1 


600 3 

60 36 

K * 

KRB 



600 4 

60 46 


TLS 


/ ECHO 

600 5 

60 41 


TSF 



6006 

5205 


JM p 

. -1 


600 7 

32 74 


DCA 

CH 


6010 

4777 


JMS 

CRLF 


60 1 1 

1274 


TAD 

CH 


60 1 2 

1 3 76 


TAD 

(-203 

/TEST FOR tC 

60 1 3 

7650 


SMA 

CLA 


60 1 4 

5672 


JMP 

I MOM 

/RETURM TO MOMITOR 

60 1 5 

1274 


TAD 

CH 


60 1 6 

1 3 75 


TAD 

(- ”0 

/TEST FOR 0 

60 1 7 

7650 


SMA 

CLA 


6020 

56 73 


JMP 

I ODT 

/ GO TO 0DT4 

602 1 

12 74 


TAD 

CH 


6022 

1 3 74 


TAD 

< - *'D 

/TEST FOR D 

6023 

7650 


SMA 

CLA 


6024 

5773 


JMP 

DM F 


6025 

4777 

SAM* 

JMS 

CRLF 


6026 

4276 


JMS 

BLO CK 


602 7 

1 372 


TAD 

(- POO 


6030 

3771 


DCA 

VC 

/SET TO 200 WORDS 

60 31 

1 306 


TAD 

BM+ 1 


6032 

3 7 70 


DCA 

CA 


60 3 3 

4246 


JMS 

HD O' 

/PRIMT COLUMN HEADINGS 
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6334 

4767 

Rj 

•JM S 

ADDRESS 

633 5 

1 366 


TAD 

(-3 

A3 3 A 

1365 


TAD 

f-5 

A3 3 7 

3764 


DCA 

WDS 

63 43 

47 63 


JM S 

OCT 

63 4! 

4777 


JMS 

CRLF 

634P 

5P34 


JMP 

B 

63 43 

7 6 4P 

MDTj 

7G4P 

6344 

54 51 

Li 

S451 /LI 

634 5 

5653 


5AS3 /NK 

6346 

3333 

HDGi 

0 


6347 

7P 43 


CLA 

CM A 

63 53 

1 3 66 


TAD 

(-3 

6351 

47 6 P 


JMS 

SON 

63 53 

1 3 66 


TAD 

f-3 

6353 

13 65 


TAD 

(-5 

6354 

3? 73 


DCA 

PC 

63 55 

1 361 


TAT) 

( "0 

6356 

3P 7 1 


DCA 

COL 

6357 

1 365 

HPi 

TAD 

(-5 

63 63 

4 7 6 p 


JM S 

SPN 

63 61 

1 P71 


TAD 

COL 

63 6 ? 

4 763 


JMS 

TYPE 

63 63 

PP71 


IS 7 

COL 

43 A 4 

00 70 


IS/ 

HC 

63 6 5 

5P57 


JMP 

HP 

6366 

4777 


IMS 

CRLF 

63 6 7 

5646 


.JMP 

I HDG 

63 73 

3 333 

RCi 

0 


6371 

03 33 

CO l.i 

0 


63 73 

7633 

MO Ni 

7633 

63 73 

4333 

0 DTj 

43 3 3 

6374 

3333 

CHi 

3 


6375 

7333 



MOP 

63 7 6 

3 33 3 

BLOCKi 

3 


63 7 7 

43PP 


• JM S 

GET 

6133 

4777 

BACKi 

JM S 

CRLF 

61 3 1 

1 335 


TAD 

BN 

61 3P 

4757 


JM S 

P4F 

6133 

4643 


JMS 

1 (MDT 

61 34 

333.3 


3 

✓ 

613 5 

3 3 33 

BNi 

3 


613 6 

1 333 


1 333 

6137 

3333 

LINK* 

■y\ 


6 1 1 3 

74 3 P 


HLT 


61 1 1 

1 356 


TAD 

CL 

61 1 3 

3 7 73 


DCA 

CA 

61 1 3 

4755 


IMS 

FT LF 

61 1 4 

1354 


TAD 

C-P 

6M5 

4 76P 


JM S 

SPN 

61 1 6 

1 33 7 


TAD 

LT NK 

61 1 7 

4757 


JM S 

P4F 

61 P3 

4777 


IMS 

CRLF 

61 PI 

5676 


JMP 

I BLOCK 

61 PP 

33 3 3 

GETi 

3 


61 P3 

5 6 73 

WAI Ti 

JM D 

T ODT 

61 P 4 

7634 


LAS 


61 P5 

3335 


DCA 

BN 

61 P6 

57PP 


JMP 

T GET 


/S WORDS TO A LT ME 


/4 SPACES 
/SET S HEADINGS 

/SET COLUMN HEADING 

/5 SPACES 
/GET HFADING 

/Rrr.ir AT HEADINGS 0-7 


/BRING DOWN BLOCK 

/MONITOR DISC TRANSFER 

/ERROR 

/PRINT "LINK” 

/TWO SPACES 
/GET LINK WORD 
/AND TYPE IT 

/OR CLA HLT FOR USE OF SR 
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61 

54 

7776 

61 

55 

695 A 

61 

56 

67 44 

61 

57 

6 PP4 

6! 

60 

6345 

61 

61 

7P67 

61 

6? 

6.3 1 7 

61 

63 

63?P 

61 

64 

67 57 

61 

65 

7 7 73 

61 

66 

7775 

61 

67 

6946 

61 

70 

63 6 7 

61 

71 

6364 

61 

7? 

767*1 

61 

73 

6977 

61 

74 

74 74 

61 

75 

7461 

61 

76 

7575 

61 

77 

63 36 





♦ 6000 

6000 

43 36 

DNF* 

JM S 

CRLF 

600 1 

4777 


•JM S 

BLOCK 

6P0P 

1 3 63 


TAD 

CO NO 

6P03 

33 64 


DCA 

wc 

6P0 4 

70 40 


CMA 


6P0 5 

1365 


TAD 

MO 

6P06 

33 57 


DCA 

WDS 

6P0 7 

1 776 


TAD 

BN+ 1 

60 1 0 

336 7 


DCA 

CA 

6P1 1 

4046 


JMS 

ADDRESS 

6P1P 

4 3 OP 


JMS 

OCT 

6P1 3 

4336 


.IMS 

CRLF 

6P1 4 

4046 

A> 

JMS 

ADDRESS 

6P1 5 

40 54 


•JMS 

FILE 

6P1 6 

7040 


CLA 

CMA 

60 1 7 

1 365 


TAD 

MO 

6PP0 

33 5 7 


DCA 

WDS 

6PP 1 

4300 


JMS 

OCT 

6 OOP 

4336 


JMS 

CRLF 

600 3 

SOI 4 


JMP 

A 

6PP4 

0000 

P4Fi 

0 


6PP5 

3356 


DCA 

FT G 

6PP 6 

1 3 55 


TAD 

M 4 

6PP7 

3336 


DCA 

CRLF 

6P 3 0 

1 3 56 


TAD 

FI G 

6P 31 

70 04 


RAL 


6030 

700 4 

NEXT.* 

R4L 


6033 

70 06 


RTL 


60 3 4 

3 3 56 


DCA 

FI G 

6035 

1 3 56 


TAD 

FI G 

6036 

03 60 


AND 

M 7 

60 3 7 

1 361 


TAD 

CONI 

6040 

43 45 


JMS 

TYPE 

6041 

13 56 


TAD 

FI G 

6040 

033 6 


T S3 

CRLF 

6043 

50 30 


JMP 

NEXT 

60 44 

7000 


CLA 


60 4 5 

5604 


JMP 

I P4F 


/SET TO 000 WORDS 

/SET 3 WORDS IN FIRST LINE 
/SET CA = 1000 

* 

/DECODE FILE NAME 

/THREE WORDS IN OCTAL 

/FOUR FI GIJRES 
/TEMP STORE 

/DIGIT COUNT 
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.6?/'6 

3000 

ADDRESS 

4 

0 

6047 

1 3 67 


TAD 

CA 


4004 


IM S 

P4F 

6? SI 

1 360 


TAD 

SP 

60 50 

43 45' 


■ JMS 

TYPE 

APS? 

5646 


,JMP 

I ADDRESS 

A? 54 

00 30 

FILE* 

0 


6055 

1 3 65 


TAD 

MO 

60 56 

33 57 


DCA 

WDS 

60 57 

1 365 


TAD 

MO 

6060 

4310 


JMS 

SPN 

6061 

1 767 

FI * 

TAD 

T CA 

6060 

33 56 


DCA 

FT G 

60 63 

1 365 


TAD 

M 0 

60 64 

33 36 


DCA 

CRLF 

6065 

1 3 56 


TAD 

FT G 

6066 

7004 


RAL 


6067 

700 6 

FO* 

RTL 


60 77 

700 6 


RTL 


60 71 

70 0 6 


RTL 


60 70 

33 56 


DCA 

FI G 

60 73 

1 3 56 


TAD 

FI G 

6° 74 

0366 


AND 

ML 

6075 

1 360 


TAD 

SP 

6076 

4345 


IMS 

TYPE 

60 77 

1 3 56 


TAD 

FI G 

6300 

0336 


I SO 

CRLF 

6301 

5067 


JMP 

FO 

6300 

036 7 


I SO 

CA 

630 3 

03 64 


I SO 

WC 

6304 

7P00 


CLA 


6305 

03 57 


I SO 

WDS 

6306 

506! 


IMP 

FI 

630 7 

5654 


IMP 

I FILE 

6310 

0000 

SPN* 

0 


631 1 

3336 


DCA 

CRLF 

6310 

1 3 60 


TAD 

SP 

631 3 

43 45 


JMS 

TYPE 

6314 

0336 


I SO 

CRLF 

631 5 

5310 


JMP 

.-3 

631 6 

60 31 


KSF 


631 7 

7410 


SKP 


6300 

5775 . 


JMP 

K 

6301 

5710 


JMP 

J SPN 

63op 

0000 

OCT* 

0 


6303 

1 3 65 


TAD 

MO 

6304 

4310 


JMS 

SPN 

6305 

1 767 


TAD 

I CA 

6306 

4004 


JMS 

P4F 

630 7 

0367 


I SO 

CA 

6330 

0364 


I SO 

WC 

6331 

7410 


SK° 


6330 

5774 


JM° 

SAM 

6333 

03 57 


I SO 

WDS 

6334 

530 3 


JMP 

OCT+ 1 

633 5 

570? 


JMP 

T OCT 


/PRINT FF LE NAME 
/TWO WORDS TO FILE NAME 


/MASK 0077 


/TYPE N SPACES 


/LISTEN FOR KEYBOARD 

/OCTAL NUMBER 
/TWO SPACES 
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63? 6 

333 3 

CRLF, 

0 

6337 

7003) 


CLA 

6340 

1 357 


TAD CR 

6341 

43 45 


JMS TYPE 

6342 

1354 


TAD LF 

63 43 

4345 


JMS TYPE 

6344 

573 6 


JMP T CRLF 

6345 

3333 

TYPE, 

0 

6346 

6346 


TLS 

6347 

67 41 


TSF 

6350 

5747 


JMP 

6351 

7233 


CLA 

6352 

5745 


JMP I TYPE 

63 53 

33 1 5 

CR, 

21 5 

6354 

3312 

LF, 

212 

6355 

7774 

M 4, 

-4 

63 56 

3333 

FT 6, 

0 

6357 

3373 

WDS, 

0 

6360 

3737 

M 7, 

7 

6361 

33 67 

COM 1 , 

2 60 

63 62 

3243 

SP, 

240 

63 63 

7637 

COM2, 

-200 

63 64 

3333 

WC, 

0 

6365 

7776 

M2, 

-2 

6366 

3377 

ML, 

0077 

63 6 7 

3333 

CA, 

0 

63 70 

4333 

0 DTT, 

4000 








*3 74 

6MP 5 

6375 

60 A 3 

63 76 

61 M6 

63 77 

60 76 

A 

6 p 1 4 

ADORES 6P46 

B 

6PI04 

RACK 

6100 

BLOCK 

6076 

BN 

6)05 

CA 

6367 

CH 

6074 

COL 

60 71 

CO N J 

63 61 

CON? 

6363 

CR 

6353 

CRLF 

633 6 

DNF 

6POO 

FI G 

6356 

• file 

6P54 

F? 

6P61 

FP 

6P67 

GET 

61PP 

P C 

6070 

HOG 

6046 

PP 

60 5 7 

K 

600 3 

L 

604-6 

LF 

6354 

LINK 

6107 

NOT 

60 43 

ML 

6366 

MON 

60 7P 

MP 

6365 

M4 

6355 

M 7 

6360 

NEXT 

6P3P 

OCT 

63 p P 

OOT 

60 73 

ODTT 

63 70 

p 4F 

6PP4 

SAM 

60P 5 

SP 

636 P 

SPN 

631 0 

START 

6000 

TYPE 

634 5 

W4I T 

61 P3 

WC 

6364 

WDS 

63 5 7 







LOA'D 

* T M-S:B2 

* 

ST= 

11 

. SAV/!' RLTX ? 6000- 6377; 6000 
• 7 DT4 

7630 6 

. RL 1K 
R . 


61 30 6 


3303 ' 

LJMK 

0001 







0 

1 

2 3 

4 

5 

6 

7 

1 ?33 

00 7 7 

4242 

0005 0373 

7200 

0 000 

7402 

4?4? 

1013 

000 5 

0374 

D 






6105/0000 177 







61 00 Oi 









01 77 

LINK 

0?0! 







] 0 0 0 

0373 

41 46 

3233 






1003 

FX C 

7000 

7003 

613 1 





1 0 1 0 

Pjp 

0000 

J 333 

6102 





1 0 1 5 

AVI 

7777 

3 633 

6103 





13?? 

LOAD 

7400 

740 3 

6104 





J.9I0 7 

. CD. 

0000 

3030 

6105 





1034 

FPT2 

0000 

3300 

200 6 





104 1 

M F1 1 

0000 

3030 

430 7 





1 0 4 6 

FDI T 

0000 

2 603 






61 05/01 77 300 







6100 r. 









0P00 

LT NI K 

0401 








0 

1 

2 

3 

4 

5 

6 

7 

1 MOO 

0 1 0 1 

0 10 1 

01 31 

4 731 

4 73 1 

47? 1 

4 701 

4 70 1 

10 10 

4701 

4 70 1 

4 73 4 

4 73 4 

4 70 4 

4 7? 5 

4 70 5 

4 70 5 

1 000 

4 70 5 

4 70 5 

4735 

4 73 5 

4 70 4 

4 7? 4 

4 732 

4 7?? 

10 30 

4 70? 

4 70? 

4 732 

233? 

2302 

5 5?? 

5502 

1 33? 

1 0 40 

1 30? 

1 30? 

1 30P 

1 302 

1 302 

1 30? 

1 302 

1 33? 

10 50 

1 30? 

1 30? 

1 33 2 

1 43 3 

1 40 3 

1 4?3 

1 403 

1 40 3 

1 0 60 

1 40 3 

1 40 3 

1 40 3 

1 503 

K 





6 1 ? 6 ? 

610 5/3P?? s: 
61 33 0 

33 5 3 L T M< 

1 

03 54 

P 

3 

4 

5 

6 

7 

1 000 

10 13 

3 3 0 0 
P 40 3 

0600 

P 630 

1 03? 
333? 

1 ?33 
3??3 

1 430 
3403 

1 600 

2000 

??33 


• BLOK 
D 
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4 


291 

61 99 G 


0P3 1 

LTMK 

0 0 00 



1 '71 r\ i 

0000 

0000 

0000 


1 003 

CSYM 

-3000 

0000 

.9932 

1 0 1 13 

1015 

NDJ 

A V4 

0 0 0 0 

0000 

4033 
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